z <- data.frame(
labor = 0:7,
quantity = c(0, 16, 40, 60, 72, 80, 84, 82),
fixed_cost = 160,
variable_cost = 0:7 * 80
)
z$total_cost <- z$fixed_cost + z$variable_cost
z labor quantity fixed_cost variable_cost total_cost
1 0 0 160 0 160
2 1 16 160 80 240
3 2 40 160 160 320
4 3 60 160 240 400
5 4 72 160 320 480
6 5 80 160 400 560
7 6 84 160 480 640
8 7 82 160 560 720